home *** CD-ROM | disk | FTP | other *** search
/ PCDisk Magazine Disks / PCDisk Magazine - Disk 1.img / JIGJAGS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-03-09  |  12.0 KB  |  204 lines
  1. 1  REM JIGJAGS Copyright (c) 1983 Ron Dubren & Assoc.
  2. 9  DEFFNUC%(LETTER%)=LETTER%+(32*(LETTER%>96)):KEYOFF:CLS:SCREEN0,0:FORI=1TO10:KEYI,"":NEXT:P$="1":DL=1:CL=2:COLOR2:AGAIN=0:Z$=CHR$(0):LOCATE,,0
  3. 20  DIMASCII(255),BD(15,29),PP$(16),SNGL$(16),DBL$(16),DI(15),BL(7,7),BP(7,7),PBRD(16,2),PBNK(16,2),PL(16,3,3),UNIQUE(9),PBS(7),PSOL(16,2),BNK(3,7),SCR$(22),LINES$(15),CLUE(16),BRDI(8,8),VIK(12),RANK$(11)
  4. 25  DATA"F1-MOVE TO GRID   F2-RETURN TO BANK   F3-MOVE WITHIN GRID   'SB'-SWITCH  H-HELP","PRESS ANY KEY TO CONTINUE","MOVE WOULD PUT PART OF PIECE OUTSIDE OF GRID","INVALID PLACEMENT OR PIECE CONFLICT
  5. 26  DATA"PIECE ALREADY PLACED","PLEASE STUDY PIECES FOR A MOMENT...YOU MAY BEGIN WHEN PIECE STARTS FLASHING","NO PIECE TO REMOVE","F1 MOVE NOT YET COMPLETE!","SORRY THAT'S NOT THE CORRECT SOLUTION...","NO PIECE TO MOVE","NO PIECE TO PLACE
  6. 27  DATA"PLEASE WAIT...FORMAT IN PROGRESS","CAN'T MOVE CLUE PIECE","NO ROOM FOR CLUE PIECE... REMOVE SOME PIECES AND TRY AGAIN","PRESS ANY KEY TO RETURN TO OPTIONS...":FORI=1TO15:READLINES$(I):NEXT
  7. 35  FORI=1TO255:ASCII(I)=I:NEXT:DATA217,188,192,200,218,201,191,187,193,202,195,204,180,185,194,203,197,206,179,186,196,205:FORI=1TO11:READS,D:ASCII(S)=D:NEXT
  8. 40  DATA72,80,75,77,59,32,67,84,81,83,79,72,72,80,75,77,59,60,61,83,80,68,13:FORI=1TO12:READVIK(I):NEXT:FORI=1TO7:READVIB(I):NEXT:FORI=1TO4:READVII(I):NEXT
  9. 55  DATA201,187,203,200,204,206,206,188,206,185,206,202,206,206,206:FORI=1TO15:READDI(I):NEXT
  10. 100  DATA2,37,"JIG JAGS",5,27,"The Jigsaw Crossword Puzzle",9,36,"created by",11,36,"Ron Dubren",15,35,"programmed by",17,32,"Infocenter Software",24,21,"Copyright 1983 Ron Dubren and Associates
  11. 156  FORI=1TO7:READR,C,D$:LOCATER,C:PRINTD$;:NEXT:DATA2,2,4,14,2,26,1,38,6,34,2,50,4,58,2,74,10,6,10,14,10,62,10,74,18,2,18,14,18,62,18,70:FORPC=1TO16:READPBNK(PC,1),PBNK(PC,2):NEXT
  12. 166  DATA1,2,3,4,6,7,8,9,10,0,5,0,11,12,13,14,0,0,0,15,16:FORI=1TO3:FORJ=1TO7:READBNK(I,J):NEXT:NEXT:CPN=1:BKR=1:BKC=1:BDR=1:BDC=1
  13. 175  DATA"                              HELP SCREEN","C - Clue Piece is Requested","T - Time elapsed in minutes","S - Save and Exit  (Game Saved)","O - Return to Options menu  (Game Not Saved)","Q - Quit and Go Home  (Game Not Saved)
  14. 176  DATA"[THESE KEYS ARE AVAILABLE ONLY WHILE CURSOR IS IN THE BANK]":FORI=1TO7:READHLP$(I):NEXT
  15. 180  DATA"GRAND MASTER","MASTER","CHAMP","PRO","SEMI-PRO","CHALLENGER","BEGINNER","NOVICE","APPRENTICE","AMATEUR","UNRANKED AMATEUR":FORI=1TO11:READRANK$(I):NEXT
  16. 240  FORI=1TO15:FORJ=1TO29:BD(I,J)=28:NEXT:NEXT:FORI=3TO13STEP2:FORJ=5TO25STEP4:BD(I,J)=197:NEXT:NEXT
  17. 250  DATA1,1,218,1,29,191,15,1,192,15,29,217:FORI=1TO4:READR,C,A:BD(R,C)=A:NEXT:FORI=1TO15STEP2:FORJ=2TO26STEP4:FORK=JTOJ+2:BD(I,K)=196:NEXT:NEXT:NEXT
  18. 280  FORI=2TO14STEP2:FORJ=1TO29STEP4:BD(I,J)=179:NEXT:NEXT:FORI=5TO25STEP4:BD(1,I)=194:BD(15,I)=193:NEXT:FORI=3TO13STEP2:BD(I,1)=195:BD(I,29)=180:NEXT
  19. 308  DATA1,2,3,4,5,8,9,13,14:OPEN "I",#1,"PIECES" :INPUT#1,SB$:INPUT#1,DB$:FORDAT=1TO9:READUNIQUE(DAT):INPUT#1,SNGL$(UNIQUE(DAT)):INPUT#1,PP$(UNIQUE(DAT)):NEXT:CLOSE:GOSUB12000
  20. 318  FORDAT=1TO9:PIECE=UNIQUE(DAT):LENGTH=LEN(SNGL$(PIECE)):PIECE$=SNGL$(PIECE):TMP$="":FORCHAR=1TOLENGTH:TMP$=TMP$+CHR$(ASCII(ASC(MID$(PIECE$,CHAR,1)))):NEXT:DBL$(PIECE)=TMP$:NEXT
  21. 328  DATA2,7,3,6,6,10,10,11,9,12,13,16,14,15:FORDAT=1TO7:READX,Y:SNGL$(Y)=SNGL$(X):DBL$(Y)=DBL$(X):PP$(Y)=PP$(X):NEXT
  22. 335  DATA"OPTIONS: ","","","     Press S to see a sample JIG JAGS puzzle","","","     Press E to exit","","","     Press [RETURN] to begin the game":FORI=1TO10:READSCR$(I):NEXT
  23. 350  CLS:COLOR2:LOCATE7,1:FORI=1TO10:PRINTSCR$(I):NEXT
  24. 400  X$=INKEY$:IFX$=""THEN400 ELSEXQ%=ASC(X$):X$=CHR$(FNUC%(XQ%))
  25. 405  IFLEN(X$)=1THENIC=ASC(X$):I=0ELSE400
  26. 410  IFX$<>CHR$(13)ANDX$<>"S"ANDX$<>"E"THEN400
  27. 415  IFX$="S"THEN500 ELSEIFX$="E"THEN12100
  28. 416  IFAGAIN=1THEN700
  29. 417  ONERRORGOTO430
  30. 420  OPEN "I",#1,"SAVED":CLS:LOCATE10,10:PRINT"RETURNING TO SAVED GAME...":GOTO3300
  31. 430  RESUME700
  32. 500  OP$=P$:P$=".smp":GOSUB7100:GOSUB7000:UL=0:GOSUB7200:X=FRE(""):LIN=15:GOSUB9000:FLG=0
  33. 505  FORPC=1TO16:GOSUB9100:GOSUB8200:CL=26:GOSUB8000:CL=2:R=PSOL(PC,1):C=PSOL(PC,2):GOSUB8200:CL=26:GOSUB8000:CL=2:BDR=R+1:BDC=C+2:GOSUB9500:GOSUB10100:GOSUB10200:GOSUB10700:GOSUB9100:CL=10:GOSUB8000:R=PSOL(PC,1):C=PSOL(PC,2):GOSUB8000:CL=2
  34. 510  IFINKEY$<>""THENPC=16:FLG=1
  35. 515  NEXT:COLOR2
  36. 520  IFFLG=0THENIFINKEY$=""THEN520
  37. 530  P$=OP$:GOTO350
  38. 700  CLS:COLOR14:PRINT"This is a list of the PUZZLE files currently on the disk":COLOR7:FILES"puzzle??":PRINT
  39. 720  LOCATE18,2:COLOR14:PRINT:PRINT"Please enter the NUMBER of the puzzle to play - ":INPUT"appearing immediately after the word 'PUZZLE'";P$:LOCATE22,1:PRINTSPACE$(79):ONERRORGOTO780:OPEN "PUZZLE"+P$ FOR INPUT AS 1:CLOSE1:GOTO800
  40. 780  BEEP:LOCATE22,1:PRINT"File Not Found - Try Again":RESUME720
  41. 800  COLORCL:CLS:LOCATE7,1:PRINT"WHAT DIFFICULTY LEVEL WOULD YOU LIKE?":LOCATE10:PRINTSPACE$(5);"1) HARD":PRINT:PRINT:PRINTSPACE$(5);"2) VERY HARD":PRINT:PRINT:INPUT"     CHOOSE ONE: ",D$:IFD$<>"1"ANDD$<>"2"THEN800 ELSEDL=VAL(D$):GOTO900
  42. 900  GOSUB7100:GOSUB7000:UL=0:GOSUB7200:IFDL=1THENGOSUB7400
  43. 910  X=FRE(""):LIN=1:GOSUB9000:TIME$="0":BKR=1:BKC=1
  44. 1010  PC=BNK(BKR,BKC):GOSUB9100:IN$=INKEY$:IFIN$<>""THENFORT=1TO50:NEXT:GOTO1100
  45. 1030  UL=1:IFPBRD(PC,1)=0THENCL=10:B$=SB$:GOSUB8000:CL=18:GOSUB8100:CL=2 ELSECL=26:B$=DB$:GOSUB8000:GOSUB9250:GOSUB8000:CL=2
  46. 1040  IN$=INKEY$:IFIN$=""THEN1040 ELSEGOSUB8300:GOTO1100
  47. 1100  I=0:IC=ASC(RIGHT$(IN$,1)):IFLEN(IN$)=1THEN1500
  48. 1110  I=I+1:IFI<=5THENIFIC=VIK(I)THEN1130 ELSE1110
  49. 1120  BEEP:GOTO1010
  50. 1130  ONIGOTO1140,1150,1160,1170,1300
  51. 1140  IFBKR>1THENBKR=BKR-1:GOTO1010ELSE1010
  52. 1150  IFBKR<3THENIFBNK(BKR+1,BKC)<>0THENBKR=BKR+1:GOTO1010ELSE1010ELSE1010
  53. 1160  IFPC=5THENBKR=1:BKC=3:GOTO1010
  54. 1165  IFBKC>1THENIFBNK(BKR,BKC-1)<>0THENBKC=BKC-1:GOTO1010ELSEBKC=BKC-4:GOTO1010ELSE1010
  55. 1170  IFPC=5THENBKR=1:BKC=5:GOTO1010
  56. 1175  IFBKC<7THENIFBNK(BKR,BKC+1)<>0THENBKC=BKC+1:GOTO1010ELSEBKC=BKC+4:GOTO1010ELSE1010
  57. 1200  IFPBRD(PC,1)=0THENPC=0
  58. 1201  GOSUB8400:GOSUB9600:GOTO2010
  59. 1300  IFPBRD(PC,1)<>0THENLIN=5:GOSUB9900:GOTO1010
  60. 1301  GOTO2010
  61. 1500  I=5
  62. 1510  I=I+1:IFI<13THENIFFNUC%(IC)=VIK(I)THEN1530 ELSE1510
  63. 1520  BEEP:GOTO1010
  64. 1530  ONI-5GOTO1200,1600,1700,12100,1900,1650,3200
  65. 1600  LOCATE24,1:COLOR14:PRINTSPACE$(9)+"A clue will cost you one skill level - Continue? (y/n) _"+SPACE$(14);:COLORCL
  66. 1602  XXX$=INKEY$:IFXXX$=""THEN1602 ELSEIFXXX$="n"ORXXX$="N"THENGOSUB9000:GOTO1010 ELSEIFXXX$="y"ORXXX$="Y"THENGOSUB9000:GOTO1605
  67. 1603  BEEP:GOTO1600
  68. 1605  FLG=0:BDR2=BDR:BDC2=BDC:PC2=PC:FORCLU=1TO16:IFPBRD(CLU,1)=0THENBDR=PSOL(CLU,1)+1:BDC=PSOL(CLU,2)+2:PC=CLU:GOSUB10000:IFER=0THENCLUE(PC)=1:CLU=16:FLG=1
  69. 1610  NEXT:IFFLG=1THENCLUES=CLUES+1:GOSUB9100:GOSUB8200:CL=26:GOSUB8000:CL=2:GOSUB9500:GOTO2630 ELSELIN=14:GOSUB9900:BDR=BDR2:BDC=BDC2:PC=PC2:GOTO1010
  70. 1650  AGAIN=1:GOTO350
  71. 1700  LOCATE24,1:COLOR2:PRINTSTRING$(79,32);:LOCATE24,1:COLOR0,7:PRINTUSING"TIME ELAPSED: ####.## MINUTES";VAL(TIME$)*60+VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))/60;:GOSUB9800:LIN=1:GOSUB9000:GOTO1010
  72. 1900  CLOSE#1:OPEN "O",#1,"SAVED":PRINT#1,P$:FORI=1TO7:FORJ=1TO7:PRINT#1,BL(I,J):PRINT#1,BP(I,J):NEXT:NEXT:FORI=1TO8:FORJ=1TO8:PRINT#1,BRDI(I,J):NEXT:NEXT:FORI=1TO16:PRINT#1,PBRD(I,1):PRINT#1,PBRD(I,2):PRINT#1,CLUE(I):NEXT
  73. 1910  PRINT#1,CLUES:PRINT#1,TIME$:PRINT#1,DL:CLOSE#1:CLS:COLOR2,0:PRINT"PUZZLE SAVED":FORI=1TO1500:NEXTI:GOTO12100
  74. 2010  B$=DB$:IFPBRD(PC,1)<>0THENBDR=PBRD(PC,1)+1:BDC=PBRD(PC,2)+2 ELSEIFPC<>0THENGOSUB9100:GOSUB8200:CL=26:UL=1:GOSUB8000:CL=2:GOSUB8400:GOSUB9600
  75. 2020  B$=DB$:LOCATEBDR,BDC,1:IN$=INKEY$:IFIN$=""THENFORT=1TO50:NEXT:GOTO2020
  76. 2030  LOCATEBDR,BDC,1:I=0:IC=ASC(RIGHT$(IN$,1)):IFLEN(IN$)=1THEN2910
  77. 2040  I=I+1:IFI<=7THENIFIC=VIB(I)THEN2060 ELSE2040
  78. 2050  BEEP:GOTO2020
  79. 2060  IFI>4THEN2510
  80. 2080  ONIGOTO2090,2100,2110,2120
  81. 2090  IFBDR>10THENBDR=BDR-2:GOTO2125ELSE2125
  82. 2100  IFBDR<22THENBDR=BDR+2:GOTO2125ELSE2125
  83. 2110  IFBDC>29THENBDC=BDC-4:GOTO2125ELSE2125
  84. 2120  IFBDC<51THENBDC=BDC+4
  85. 2125  FORZ=1TO100:NEXT:IN$=INKEY$:IFIN$<>""THEN2030
  86. 2130  GOSUB9500:IFPC=BP(R,C)OR(PC<>0ANDPBRD(PC,1)=0)THEN2020
  87. 2135  IFPC<>BP(R,C)ANDPC=0THEN2150
  88. 2140  GOSUB9100:CL=10:GOSUB8000:GOSUB9250:GOSUB8000:CL=2
  89. 2150  GOSUB9500:PC=BP(R,C):IFPC=0THEN2020 ELSEGOSUB9100:CL=26:UL=1:GOSUB8000:GOSUB9250:CL=26:GOSUB8000:CL=2:GOTO2020
  90. 2510  ONI-4GOTO2610,2710,2810
  91. 2610  IFPBRD(PC,1)<>0THENLIN=5:GOSUB9900:GOTO2020
  92. 2615  IFPC=0THENLIN=11:GOSUB9900:GOTO2020
  93. 2620  GOSUB10000:IFER=1THENBEEP:GOSUB9000:GOSUB9800:LIN=1:GOSUB9000:GOTO2020
  94. 2630  BDR1=BDR:BDC1=BDC:GOSUB10100:R=PBRD(PC,1):C=PBRD(PC,2):GOSUB8200:CL=26:GOSUB8000:CL=2:GOSUB10200:BDR=BDR1:BDC=BDC1:GOSUB10700:GOSUB10500:GOTO2020
  95. 2710  IFPC=0THENLIN=7:GOSUB9900:GOTO2020
  96. 2715  GOSUB3100:IFER=1THEN2020
  97. 2720  IFPBRD(PC,1)=0THENLIN=8:GOSUB9900:GOTO2020
  98. 2730  BDR2=BDR:BDC2=BDC:GOSUB9250:CL=2:GOSUB8100:GOSUB10300:GOSUB9200:GOSUB9500:GOSUB10400:GOSUB9250:PBRD(PC,1)=0:PBRD(PC,2)=0:GOSUB9100:GOSUB8100:GOSUB8000:GOSUB10600:PC=0:BDR=BDR2:BDC=BDC2:GOTO2020
  99. 2810  IFPC=0THENLIN=7:GOSUB9900:GOTO2020
  100. 2815  GOSUB3100:IFER=1THEN2020
  101. 2820  IFPBRD(PC,1)=0THENLIN=10:GOSUB9900:GOTO2020
  102. 2830  BDR2=BDR:BDC2=BDC:GOSUB9250:CL=2:GOSUB8100:UL=1:GOSUB8000:GOSUB9100:B$=DB$:CL=10:UL=1:GOSUB8000:CL=2:GOSUB9200:BDR=BDR+1:BDC=BDC+2:GOSUB9500:GOSUB10400:LOCATEBDR,BDC,1
  103. 2840  LOCATEBDR,BDC,1:IN$=INKEY$:IFIN$=""THENFORI=1TO100:NEXT:GOTO2840
  104. 2850  I=0:IC=ASC(RIGHT$(IN$,1)):IFLEN(IN$)=1THEN2840
  105. 2855  IFIC=61THEN3010
  106. 2860  I=I+1:IFI<=4THENIFIC=VIB(I)THEN2880 ELSE2860
  107. 2870  GOTO2840
  108. 2880  ONIGOTO2890,2892,2894,2896
  109. 2890  IFBDR>10THENBDR=BDR-2:GOTO2840 ELSE2840
  110. 2892  IFBDR<22THENBDR=BDR+2:GOTO2840 ELSE2840
  111. 2894  IFBDC>29THENBDC=BDC-4:GOTO2840 ELSE2840
  112. 2896  IFBDC<51THENBDC=BDC+4:GOTO2840 ELSE2840
  113. 2910  IFIC<>32THEN2020 ELSEIFPBRD(PC,1)<>0THENCL=10:GOSUB9250:GOSUB8000:GOSUB9100:GOSUB8000:CL=2 ELSEIFPC<>0THENGOSUB9100:CL=2:GOSUB8100:GOSUB8000
  114. 2920  GOSUB8500:GOTO1010
  115. 3010  GOSUB10000:IFER=1THENGOSUB9900:GOTO2840
  116. 3020  GOSUB9250:COLOR2:GOSUB10300:R=BDR-1:C=BDC-2:PBRD(PC,1)=R:PBRD(PC,2)=C:GOSUB9500:GOSUB10100:CL=2:GOSUB9250:GOSUB8200:CL=26:GOSUB8000:GOSUB9100:GOSUB8000:CL=2:GOSUB10600:GOSUB9500:PC=BP(R,C):GOTO2020
  117. 3100  ER=0:IFCLUE(PC)=1THENLIN=13:GOSUB9900:ER=1
  118. 3120  RETURN
  119. 3200  CLS:COLOR13,0:LOCATE3,1:FORI=1TO7:PRINTSPACE$(5);HLP$(I):PRINT:PRINT:NEXT:LIN=2:GOSUB9000
  120. 3215  GOSUB7100:GOSUB7200:IFDL=1THENGOSUB7400
  121. 3220  CL=2:GOSUB10600:FORPC=1TO16:IFPBRD(PC,1)<>0THENGOSUB9100:CL=2:GOSUB8200:CL=10:GOSUB8000:GOSUB9250:GOSUB8000
  122. 3230  NEXT:CL=2:GOTO1010
  123. 3300  INPUT#1,P$:FORI=1TO7:FORJ=1TO7:INPUT#1,BL(I,J),BP(I,J):NEXT:NEXT:FORI=1TO8:FORJ=1TO8:INPUT#1,BRDI(I,J):NEXT:NEXT:FORI=1TO16:INPUT#1,PBRD(I,1),PBRD(I,2),CLUE(I):NEXT:INPUT#1,CLUES,FIN$,DL
  124. 3320  CLOSE:KILL"SAVED":GOSUB7012:TIME$=FIN$:GOSUB8500:GOTO3215
  125. 7000  CLUES=0:ERASEBL,BRDI,PBRD,BP,CLUE:DIMBL(7,7),BRDI(8,8),PBRD(16,2),BP(7,7),CLUE(16)
  126. 7012  OPEN "I",#2,"PUZZLE"+P$:INPUT#2,LETTERS$:FORI=1TO7:INPUT#2,PBS(I):NEXT:FORI=1TO16:INPUT#2,X:PSOL(I,1)=X+8:INPUT#2,Y:PSOL(I,2)=Y+25:NEXT:CLOSE
  127. 7015  LP=0:FORI=1TO16:FORJ=1TO3:FORK=1TO3:IFMID$(PP$(I),10-((J-1)*3+K),1)="0"THENPL(I,J,K)=0:GOTO7030
  128. 7025  LP=LP+1:X$=MID$(LETTERS$,LP,1):PL(I,J,K)=ASC(X$)
  129. 7030  NEXT:NEXT:NEXT:RETURN
  130. 7100  CLS:FORI=1TO15:LOCATE8+I,26:FORJ=1TO29:PRINTCHR$(BD(I,J));:NEXT:NEXT:RETURN
  131. 7200  OUL=UL:FORPC=1TO16:GOSUB9100:GOSUB8100:B$=SB$:UL=OUL:GOSUB8000:NEXT:RETURN
  132. 7400  FORI=1TO7:R=8+2*I:C=28+(PBS(I)-1)*4:LOCATER,1:PRINTSTRING$(C-1,28)+SB$;:BL(I,PBS(I))=42:NEXT:RETURN
  133. 8000  COLORCL:LOCATE,,0:C1=C:R1=R:IFPL(PC,1,1)=0THENC1=C1-4
  134. 8040  OB$=B$:R1=R1+1:C1=C1+2:FORI=1TO3:FORJ=1TO3:X$=CHR$(PL(PC,I,J)):IFX$=Z$THEN8060
  135. 8051  IFUL=1THENUL=2:IFX$<>"*"THENCOLORCL-1ELSEMID$(B$,13,1)="_
  136. 8052  IFX$="*"THENX$=B$:COLOR2
  137. 8054  LOCATER1,1:PRINTSTRING$(C1-1,28)+X$;:COLORCL:B$=OB$
  138. 8060  C1=C1+4:NEXT:R1=R1+2:C1=C1-12:NEXT:RETURN
  139. 8100  LOCATER,1,0:COLORCL:PRINTSTRING$(C-1,28)+SNGL$(PC);:B$=SB$:RETURN
  140. 8200  LOCATER,1,0:COLORCL:PRINTSTRING$(C-1,28)+DBL$(PC);:B$=DB$:RETURN
  141. 8300  IFPBRD(PC,1)=0THENCL=2:GOSUB8100:GOSUB8000 ELSEIFIN$<>" "THENGOSUB9100:CL=2:GOSUB8200:CL=10:GOSUB8000:GOSUB9250:GOSUB8000:CL=2
  142. 8320  RETURN
  143. 8400  FORX=1TO7:FORY=1TO7:IFBP(X,Y)=0THENR=X:C=Y:X=7:Y=7
  144. 8420  NEXT:NEXT:GOSUB9600:RETURN
  145. 8500  FORI=1TO3:FORJ=1TO7:PC=BNK(I,J):IF(PC<>0ANDPBRD(PC,1)=0)THENBKR=I:BKC=J:I=3:J=7
  146. 8520  NEXT:NEXT:RETURN
  147. 9000  LOCATE24,1:COLOR2:PRINTSTRING$(79,32);:LOCATE24,1:COLOR0,7:PRINTLINES$(LIN);:COLOR2,0:IFLIN<>2THENRETURN
  148. 9020  X$=INKEY$:IFX$=""THEN9020 ELSERETURN
  149. 9100  R=PBNK(PC,1):C=PBNK(PC,2):RETURN
  150. 9200  BDR=PBRD(PC,1):BDC=PBRD(PC,2):RETURN
  151. 9250  R=PBRD(PC,1):C=PBRD(PC,2):RETURN
  152. 9400  BDR=(K-1)*2+9:BDC=(L-1)*4+26:RETURN
  153. 9500  R=(BDR-10)/2+1:C=(BDC-28)/4+1:RETURN
  154. 9600  BDR=(R-1)*2+10:BDC=(C-1)*4+28:RETURN
  155. 9700  R1=R:C1=C:IFPL(PC,1,1)=0THENC1=C1-1
  156. 9720  RETURN
  157. 9800  FORZ=1TO4000:NEXT:RETURN
  158. 9900  GOSUB9000:BEEP:GOSUB9800:LIN=1:GOSUB9000:RETURN
  159. 10000  GOSUB9500:GOSUB9700:ER=0:FORI=1TO3:FORJ=1TO3:IFPL(PC,I,J)=0THEN10040
  160. 10020  IFR1<8ANDR1>0ANDC1<8ANDC1>0THENIFBL(R1,C1)=0AND((PL(PC,I,J)<>42ANDDL=1)ORDL=2)THEN10040 ELSEIFBL(R1,C1)=42ANDPL(PC,I,J)=42ANDDL=1THEN10040 ELSELIN=4:GOTO10030ELSELIN=3:GOTO10030
  161. 10030  ER=1:I=3:J=3
  162. 10040  C1=C1+1:NEXT:R1=R1+1:C1=C1-3:NEXT:RETURN
  163. 10100  GOSUB9700:PBRD(PC,1)=BDR-1:PBRD(PC,2)=BDC-2:FORI=1TO3:FORJ=1TO3:X$=CHR$(PL(PC,I,J)):IFX$=Z$THEN10130 ELSEBL(R1,C1)=ASC(X$):BP(R1,C1)=PC:V=1:FORK=R1TOR1+1:FORL=C1TOC1+1:BRDI(K,L)=BRDI(K,L)+V:V=V*2:NEXT:NEXT
  164. 10130  C1=C1+1:NEXT:R1=R1+1:C1=C1-3:NEXT:RETURN
  165. 10200  BDR1=BDR:BDC1=BDC:GOSUB9200:BDR=BDR+1:BDC=BDC+2:GOSUB9500:IFPL(PC,1,1)=0THENC=C-1
  166. 10203  COLOR2:LOCATE,,0:FORI=1TO3:FORJ=1TO3:IFPL(PC,I,J)=0THEN10230 ELSEFORK=RTOR+1:FORL=CTOC+1:GOSUB9400:LOCATEBDR,BDC:IFBRDI(K,L)=0THENPRINTCHR$(BD((K-1)*2+1,(L-1)*4+1));ELSEPRINTCHR$(DI(BRDI(K,L)));
  167. 10225  NEXT:NEXT
  168. 10230  C=C+1:NEXT:R=R+1:C=C-3:NEXT:BDR=BDR1:BDC=BDC1:RETURN
  169. 10300  C1=C:R1=R:IFPL(PC,1,1)=0THENC1=C1-4
  170. 10320  R1=R1+1:C1=C1+2:FORI=1TO3:FORJ=1TO3:X$=CHR$(PL(PC,I,J)):IFX$=Z$THEN10360
  171. 10340  IFDL=1THENIFX$="*"THENX$=SB$ ELSEX$=" 
  172. 10345  IFDL=2THENIFX$="*"THENX$=BB$ ELSEX$=" 
  173. 10350  LOCATER1,1:PRINTSTRING$(C1-1,28)+X$;
  174. 10360  C1=C1+4:NEXT:R1=R1+2:C1=C1-12:NEXT:RETURN
  175. 10400  GOSUB9700:FORI=1TO3:FORJ=1TO3:X$=CHR$(PL(PC,I,J)):IFX$=Z$THEN10420 ELSEIFX$="*"ANDDL=1THENBL(R1,C1)=42 ELSEBL(R1,C1)=0
  176. 10415  BP(R1,C1)=0:V=1:FORK=R1TOR1+1:FORL=C1TOC1+1:BRDI(K,L)=BRDI(K,L)-V:V=V*2:NEXT:NEXT
  177. 10420  C1=C1+1:NEXT:R1=R1+1:C1=C1-3:NEXT:RETURN
  178. 10500  FINISHED=1:FORI=1TO16:IFPBRD(I,1)=0THENFINISHED=0
  179. 10520  NEXT:IFFINISHED=0THEN10550
  180. 10530  WIN=1:FORI=1TO16:IFPBRD(I,1)<>PSOL(I,1)ORPBRD(I,2)<>PSOL(I,2)THENWIN=0
  181. 10540  NEXT:IFWIN=1THEN11000 ELSELIN=9:GOSUB9900
  182. 10550  RETURN
  183. 10600  LIN=12:GOSUB9000:COLOR2:IFDL<>1THEN10620 ELSEFORI=1TO7:IFBP(I,PBS(I))=0THENLOCATE8+2*I,1:PRINTSTRING$((28+(PBS(I)-1)*4)-1,28)+SB$;
  184. 10610  NEXT
  185. 10620  BDR1=BDR:BDC1=BDC:FORK=1TO8:FORL=1TO8:GOSUB9400:LOCATEBDR,BDC:IFBRDI(K,L)=0THENPRINTCHR$(BD((K-1)*2+1,(L-1)*4+1));ELSEPRINTCHR$(DI(BRDI(K,L)));
  186. 10630  NEXT:NEXT:FORR=1TO7:FORC=1TO7:GOSUB9600:IFBL(R,C)<>0ANDBL(R,C)<>42THENFORK=-1TO1:LOCATEBDR-1,BDC+K:PRINT"THEN";:LOCATEBDR+1,BDC+K:PRINT"THEN":NEXT:LOCATEBDR,BDC-2:PRINT"OPEN";:LOCATEBDR,BDC+2:PRINT"OPEN";
  187. 10650  NEXT:NEXT:GOSUB10700:BDR=BDR1:BDC=BDC1:LIN=1:GOSUB9000:RETURN
  188. 10700  FORR=1TO7:FORC=1TO7:IFBL(R,C)=42ANDBP(R,C)<>0THENLOCATE8+2*R,1:PRINTSTRING$((28+(C-1)*4)-1,28)+DB$;
  189. 10710  NEXT:NEXT:RETURN
  190. 11000  FIN$=TIME$:LOCATE24,1:PRINTSTRING$(79,32);:LOCATE24,1:BEEP:COLOR26:PRINT"CONGRATULATIONS!!!!!   THAT'S THE CORRECT SOLUTION!!!!";:GOSUB9800:LOCATE24,1:PRINTSTRING$(79,32);
  191. 11003  LOCATE24,1:COLOR0,7:PRINT"PRESS ANY KEY TO CLEAR SCREEN AND SEE YOUR RANK...";:COLOR2,0
  192. 11005  IFINKEY$=""THEN11005
  193. 11010  COLOR2:CLS:LOCATE5,1:FORI=1TO10:PRINTI,RANK$(I):NEXT:PRINT:PRINT" X",RANK$(11):TIME=VAL(FIN$)*60+VAL(MID$(FIN$,4,2))+VAL(RIGHT$(FIN$,2))/60:RANK=1+INT(TIME/15)+CLUES:RANK=RANK-(DL-1)*1:IFCLUES>0ANDDL=2THENRANK=RANK-1
  194. 11025  IFRANK<1THENRANK=1
  195. 11030  COLOR0,7:IFRANK>10THENLOCATE16,1:PRINT" X",RANK$(11) ELSELOCATE4+RANK:PRINTRANK,RANK$(RANK):COLOR2,0:LOCATE20,1
  196. 11999  COLOR2,0:LIN=2:GOSUB9000:AGAIN=1:GOTO350
  197. 12000  BB$=SB$:FORI=1TOLEN(BB$):A=ASC(MID$(BB$,I,1)):IFA=197THENX$=" 
  198. 12002  IFA=194ORA=193THENX$="SOUND
  199. 12003  IFA=195ORA=180THENX$="CALL
  200. 12004  IFA<100THENX$=CHR$(A)
  201. 12005  MID$(BB$,I,1)=X$:NEXT:RETURN
  202. 12100  KEY1,"LIST ":KEY2,"RUN"+CHR$(13):KEY3,"LOAD"+CHR$(34):KEY4,"SAVE"+CHR$(34):KEY5,"CONT"+CHR$(13):KEY6,","+CHR$(34)+"LPT1:"+CHR$(34)+CHR$(13):KEY7,"TRON"+CHR$(13):KEY8,"TROFF"+CHR$(13):KEY9,"KEY 
  203. 12110  KEY10,"SCREEN "+CHR$(0)+","+CHR$(0)+","+CHR$(0)+CHR$(13):CLS:PRINT"THANK YOU FOR PLAYING JIGJAGS":KEYON:END
  204.